home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 42 / Mac Magazin and MacEasy Magazine CD - Issue 42.iso / Software / Mobiles Büro / Newton / Accordian 1.0b / ADF Folder / Fieldbook.adf < prev    next >
Text File  |  1996-10-18  |  2KB  |  67 lines
  1. //By Heino Kronenberg of Bern, Switzerland
  2. //0Beginning of "fieldbook.adf"
  3.  
  4. // FieldBook Application
  5. // APPLICATION application_name CALLED rcu_application_alias
  6. application "FieldBook" called "FieldBook" with options { "nofolders" }
  7.  
  8. // SOUP soup_name CALLED rcu_soup_alias OF application_name
  9. soup "fieldbook" called "FieldBook Data" of "FieldBook" range "textRange"
  10.  
  11. overview "fieldbook:id" called "By ID" of "FieldBook" queries "id" contains
  12.  { column "ID" width 120 is id
  13.    column "X" width 50 is x
  14.    column "Y" width 50 is y
  15.  }
  16.  
  17. overview "fieldbook:type" called "By Type" of "FieldBook" queries "|type|" contains
  18.  { column "Type"  width  60 is |type|
  19.    column "ID"    width 120 is id
  20.    column "Alias" width  50 is alias
  21.    column "X" width 50 is x
  22.    column "Y" width 50 is y
  23.  }
  24.  
  25. class "fieldbookentry" called "FieldBook Entry" of "fieldbook" contains
  26. { |id|: string called "ID"
  27.   |CreationTime|: string called "CreationTime"
  28.   |ModificationTime|: string called "ModificationTime"
  29.   |SamplingTime|: string called "Date"
  30.  
  31.   |type|: string called "Type"
  32.  
  33.   alias: string called "Alias"
  34.   Photo: real called "Photo"
  35.   notes: string called "Notes"
  36.   x: integer called "x"
  37.   y: integer called "y"
  38.   z: integer called "z"
  39.   Formation: string called "Formation"
  40.   Age: string called "Age"
  41.   TectonicUnit: string called "TectonicUnit"
  42.   Lithology1: string called "Lithology1"
  43.   Lithology2: string called "Lithology2"
  44.   Generation: string called "Generation"
  45.   ContyctType: string called "ContactType"
  46.   ShearSense: string called "ShearSense"
  47.   Vergence: string called "Vergence"
  48.   FlowDirection: integer called "FlowDirection"
  49.  
  50.   // orientations were arrays - converted to single integers
  51.   // to work properly with RCU 2.1 for Macintosh
  52.   OrientationLinearAzimuth:  integer called "O.Lin.Az"
  53.   OrientationLinearDip:      integer called "O.Lin.Dip"
  54.   OrientationLinearQuality:  string  called "O.Lin.Q"
  55.   OrientationPlanarAzimuth:  integer called "O.Plan.Az"
  56.   OrientationPlanarDip:      integer called "O.Plan.Dip"
  57.   OrientationPlanarQuality:  string  called "O.Plan.Q"
  58.   OrientationRiedel1Azimuth: integer called "O.R1.Az"
  59.   OrientationRiedel1Dip:     integer called "O.R1.Dip"
  60.   OrientationRiedel2Azimuth: integer called "O.R2.Az"
  61.   OrientationRiedel2Dip:     integer called "O.R2.Dip"
  62.   OrientationSplayAzimuth:   integer called "O.S.Az"
  63.   OrientationSplayDip:       integer called "O.S.Dip"
  64. }
  65.  
  66.  
  67.